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RMSOPUT DISPATCH FOR PUT OPERATION 7 16-SEP-1984 01:27:1 AX/VMS M v04-00 P 1 | RMS( 
=StP@ gf: acr - 
V04=000 ~3Ep=]9Be 96:55:18 LAMS SRCTRMSOPUS MAR: 1 wie VOa- 


ah } SBEGIN RMSOPUT,000,RMSRMS,<DISPATCH FOR PUT OPERATION>,<NOWRT ,QUAD> | 
2000 ¢ s weeuncceceennsrceeececencsnenenensereeececqnqqsncesereneeeeseeeeeeonecceses 
Py + 
0000 § 3* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
44 :* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. « 
4 3 :* ALL RIGHTS RESERVED. * 
3 . 
0000 10 ;* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
0000 11 ;* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
44 \¢ 3* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS S$ ARE OR ANY OTHE * 
000 13 ;* COPIES THEREOF MAY NOT B OVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
0000 14 ;* PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
444 1? 3* TRANSFERRED. + 
3* 
0000 17 ;* THE INFORMATION IN THIS SOFTWARE IS SUBJEC7 TO CHANGE WITHOUT NOTICE * | 
0000 18 ;* AND SHOULD NOT BE CONSTRUED AS A (COMMITMENT BY DIGITAL EQUIPMENT * 
5000 3 3* CORPORATION. a 
ze ra j 
0000 $! ;* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
0000 ¢ 3* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
0000 235 ;* . 
0000 24 ;* . 
4444 $2 PRR AERA EEA AERA AAA AAA AAA RET Eee Eee | 
0000 27 :++ | 
0000 28 ; Facility: rms32 | 
0000 $3 3 
0000 0 ; Abstract: | 
0000 a1 3 this routine is the highest level control 
0000 $4 3 routine to perform the $put function. 
0000 SS 3 
0000 34 
4464 35 3 ; | 
0000 36 ; Environment: ; 
44 * ; star processor running starlet exec. | 
0000 39 : Author: L F Laverdure, creation date: 3-FEB-1977 
0000 40 ; 
0000 41 ; Modified By: 
0000 4g ; 
0000 43; V03-007 DASO001 ; David Solomon 14-Apr-1984 | 
44 re : Fix truncation error in CASE to RM$PUT2. 
0000 46: V03-006 ywT0141 Jim Teague 11-Nov-1983 
44 ef : Change IFBSV_RUM to IFBSV_ONLY_RU 
0000 49; vO3-005 KPLOOO3 Peter Lieberwirth 26-Jul-1983 | 
4 20 : If AT jnling, tell RJR we're a PUT. 
9000 3¢ : 03-004 KPL0002 Peter Lieberwirth 24-Jul-1983 ! 
8808 27 ; If AT jnling, get RAB data describing user's request. 
0000 55: v03-003 KPLO001 Peter Lieberwirth 20-Jun-1983 
4s 28 ; Change some JNLFLG references to JNLFLG2. 
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V03-002 JWHO153 
Don't allow $PUT 
specified for fi 


v03-001 KBT0189 
Reorganize psect 


V02-005 REFORMAT 


1984 01:27:1 AX/VMS Macro V04-00 
1984 95:35:18 CAMS SRCIRMSOPUT -MAR: 1 
Jeffrey W. Horn 8-Dec-1982 
Fe not in recovery unit and RU only 
e. 


Keith B. Thompson 
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23-Aug-1982 


Maria del C. Nasr 24-Jul-1980 
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Include Files: 

$ 

$ 

$ 
Equated Symbols: 
Own Storage: 


HANNS NOR DAO— CUM TN OR. CORO 
RRA 0000000000000 00 00000 OO 
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FFE2* 31 


DB BBE EEE BF ENN MII AIP PIPININPININPININID 2 2 PP OOO  PMOOOOOOCOOCOCOCOOOOOONO 
SOD NA NE WN OS OD NA UE WN O O08 NAME WN 3 O OD NAME WN O OOD NOU EWN OOONOUIS: 
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OPERATION 16-SEP-1984 01:27:12 VAX/VMS Macro v04-00 : P 
SPUT SETUP AND DISPATCH SaSep=1984 $6:55;18 LARS CRCTRAS OPUS Maes t ~~ a 


-SBTTL RMSSPUT = COMMON SPUT SETUP AND DISPATCH ROUTINE 

++ 

RMS$PUT = This routine performs common RAB function setup followed 
by dispatch to organization-dependent S$PUT code. 

Calling sequence: 


entered from exec as a result of user's calling sys$put 
(e.g., by using the $put macro) 


Input Parameters: 

ap user's argument List addr 
Implicit Inputs: 

the contents of the rab and related irab and ifab. 
Output Parameters: 


ri destroyed 
r0 status code 


Implicit Outputs: 
various fields of the rab are filled in to reflect 
the status of the $put operation. (see rms functional 
spec for a complete List.) 
the irab is similarly updated. 


a completion ast is queued if specified in the user arglist. 


; Completion Codes: 


standard rms (see functional spec for List). 


; Side Effects: 


none 


SENTRY RMSS$PUT 
STSTPT PUT 
SRABSET FAC=IFBSV_PUT,CFLG=1 : do common setup 


Py 
; Returns to user on error 


10$ ; branch if not RU only 


BBC #IEBSV ONLY RU, IFBSB_INLELG(RIQ) Bronch jf pet 8 
, ; bran 


BBS #IFBSVZRUP, TFB$B_JNLFLG2(R10) 
RMSERR 
BRW RMSE XRMS 


RMS( 
v04: 


eee eee ee ee 


RMSOPUT Dd! H FOR PUT P=1984 01:27: AX/VM - RMS( 
ot ges 2 hy SEP=19 9 30:18 X/VMS Macro Vv04-00 Page di  » 


eer sete 19° 
OMMON SPUT SETUP AND DISPATCH SEP=1984 16: RMS.SRCIRMSOPUT .MAR; 1 


QOO00000"EF 17 


RMSPUT2 


TC 

UT 
1 151 108: 
H 
if 1 : ; If AT journaling, get some information from RAB. 

199 3 
09 OOAD CA 046 €1 i 1 § BBC #1FBSV_AT, irese. JRFLECRIO) . he : skip if not AT jnling 
13° «~b0 1 MOVL #RIRS _PUT:R : input to AT_COM_RAB 
OQOOD0000'EF 16 7 c-% 8 JSB RASAT™ =COM “RAB 3 get RAB data info RJR 

020 159 208: 

05> 16 

02D 166 ; Dispatch to org-dependent code 

02D 1635; Sequential, Relative, indexed routines 

a8 Es 

020 166 CASE TYPE=B, SRC=IFBSB_ i (R10),- 

02D 16 DISPLI§T=<RMSPUT17RM PUT2.BR,RMSPUT3> 

00000008 8 ; 168 IF Re SSRMSTESTESSRMS_ eric He 
FFCS* 1 0 16 BRwW RMSERRORG 

0038 170 

0038 171 

0038 76 

0041 17 

0041 174 


— (3) 


RMSOPUT DISPATCH FOR PUT OPERATION 16-SEP-1984 01:27:1 AX/VMS Macro V04-00 
Symbol table ety 7 95:55:18 RMS.SRCIRMSOPUT.MAR; 1 
$$.PSECT EP = 00 
SSRMSTEST = 1A 
SSRMS_PBUGCHK = 48 
SSRMS—TBUGCHK = 0 
$SRMS—UMODE z 4 
IFBS$B-JNLFLG = A 
1FBSB_JNLFLG2 = A 
1FBS$B_ORGCASE = 000 f 
1FBSV_AT = 3 8 4 
IFBSV~ONLY_RU = 0000000 
1FBSV_PUT = 0000000 
IF BS$V_RUP = 0000000 
PIOSA_TRACE eeeeeeee = =6X 01 
RJRS_PuT = 00000013 
RMSAT_COM_RAB eeeerere =X 01 
RMSERRORG eeenrene Xx 01 
RMSEXRMS eeekeeee x 01 
RMSPUTI geaeeeere x 01 
RMSPUT eeereeee x 01 
RMSPUT eeereeee x 01 
RMSRSET ekkeeeee x 01 
RMSS$PUT = FFFFFFFE RG 01 
RMS$_NRU = 000187FC 
Rm_POT2 BR 00000038 R 01 
TPT$L_POT teeeeeee =X 01 
poner wares en cee eee + 
! Psect synopsis ! 
eveeeecosscosese$ 
PSECT name Allocation PSECT No. Attributes 
- ABS . 00000000 < 0.) 00 ¢ 0.) NOPIC USR CON ABS ~ LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
RMSRMS 00000041 ( s.e Oi t. Bes PIC USR CON REL GBL NOSHR~ EXE RD NOWRT NOVEC QUAD 
SABSS 00000000 ( 0.) O02 ¢ 2.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 


Geeeeseeesscccosnscsoncoe$ 


Phase Page faults CPU Time Elapsed Time 
tee pot i 173 —-86:00:00:92  89:00:05:39 
Poss 1 ’ 227 80:00; g-05 §:09:12:83 
Symbol table sort 9 es 0.72 0:00:00.84 
Pass 2 4 0:00:01.01 0:00: 9 
Symbol table output 4 0:00: S. 5 00:00:00.33 
Psect synopsis output 0:00:00. 0:00:00.0 
Cross-reference output 6 0:00: 9. 8 88:99 -8 
Assembler run totals 42 0:00:07. 0:00:23.9 


The porting set Limit was 1200 pages. : 

28972 bytes (57 pages) of virtual memory were used to buffer the intermediate code. 

There were 30 pages of symbol table space allocated to hold 584 non-local oe 4 local symbols. 
174 source Lines were read in Pass 1, producing 15 object records in Pass 2. 

18 pages of virtual memory were used to define 17 macros. 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
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DISPATCH FOR PUT OPERATION 16~SEP=1984 01:27:12 VAX/VMS Macro v04-00 Page 7 
gr see lene SaiSsiie eo8 v0e- 


RMS.SRCIRMSOPUT .MAR; 1 ( 


RMSOPUT 
VAK=-11 Macro Run Statistics 


es 


! Macro Library statistics ! 


power wes ww reer see ee eres ewe sca ¢ 


Macro Library name Macros defined 


-5255SDUAZ8: a¥3- 084 LIB.MLB;1 1 
$255S$DUA28: (SYSLIBJSTARLET.MLB;2 ; 
TOTALS (all Libraries) 1 
696 GETS were required to define 13 macros. 

There were no errors, warnings or information messages. 


MACRO/LIS=L1S$:RMSOPUT/OBJ=OBJ$:RMSOPUT MSRC$:RMSOPUT/UPDATE=(ENHS$: RMSOPUT) +EXECML$/LIB+LIB$:RMS/LIB 


99) AH-BT13A-SE 
Vdd VAX/VMS V4.0 


EQUIPMENT CORPORATI 
NTIAL_AND PROPRIETAR 


ON 
. 


